#! /usr/bin/perl -w
# Copyright (C) 2001-2002 by <Christian.Queinnec@lip6.fr>
# $Id: test03.cgi,v 1.1.1.1 2004/02/21 18:48:08 ibo Exp $

use strict;
use CGI::FOGE2::Form;

my $form = CGI::FOGE2::Form->new
    (
     title  => 'Test01',
     dbName => 'dbi:Pg:dbname=foge host=localhost',
     enquiry => 'foge_test_01',
     dbAnswer      => 'foge_test_answer',
     dbReaderLogin => 'foge_test_r',
     dbReaderPass  => 'foge_test_pwr',
     dbWriterLogin => 'foge_test_w',
     dbWriterPass  => 'foge_test_pww',
);

my $q = CGI::FOGE2::Menu->new
    (
     title => 'Question',
     items => ['bad', 'okay', 'good', 'excellent'],
     id    => 'q00',
    );

$form->addsection(CGI::FOGE2::Section->new(title => 'Section',
				     table => 'test00_sec00',
				     questions => [$q],));

$form->main();
